; Music of Super Tetris Game (1997) (Frequency)
; Ripped by Megachur the 08/04/2009

	write "SUPERTEG.BIN"

music_date_rip	equ &0849
music_adr	equ &5ead
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"

;org #62e5
;db "ST-Module."

	jp l5eb8
	jp l6edf
	jp l5f24
	db #66,#04
;
.init_music
.l5eb8
;
	ld b,#03
	ld ix,l6287
	ld iy,l61b3
	ld de,#001c
.l5ec5
	push bc
	ld (ix+#06),#01
	ld (ix+#09),d
	ld (ix+#1b),d
	ld (ix+#05),#10
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld a,(hl)
	ld (ix+#08),a
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld (ix+#0c),l
	ld (ix+#0d),h
	ld (ix+#00),c
	ld (ix+#01),b
	add ix,de
	inc iy
	inc iy
	pop bc
	djnz l5ec5
	ld a,#06
	ld (l5f68),a
	ld a,d
	ld (l5f7c),a
	inc a
	ld (l5f63),a
	ld a,#38
	ld (l5f6d),a
	ld a,#ff
	ld (l61af),a
	ld (l61b0),a
	ld (l61b1),a
	ld (l61b2),a
	ld a,#0c
	ld c,d
	call l6191
	ld a,#0d
	ld c,d
	jp l6191
;
.stop_music
.l5f24
;
	ld a,#07
	ld c,#3f
	call l6191
	ld a,#08
	ld c,#00
	call l6191
	ld a,#09
	ld c,#00
	call l6191
	ld a,#0a
	ld c,#00
	jp l6191
;
.play_music
.l5f40
;
	ld hl,l5f63
	dec (hl)
	ld ix,l6287
	ld bc,l6295
	call l5ff6
	ld ix,l62a3
	ld bc,l62b1
	call l5ff6
	ld ix,l62bf
	ld bc,l62cd
	call l5ff6
.l5f63 equ $ + 1
	ld a,#00
	or a
	jr nz,l5f6c
.l5f68 equ $ + 1
	ld a,#00
	ld (l5f63),a
.l5f6d equ $ + 1
.l5f6c
	ld a,#00
	ld hl,l61b0
	cp (hl)
	jr z,l5f7b
	ld (hl),a
	ld c,a
	ld a,#07
	call l6191
.l5f7c equ $ + 1
.l5f7b
	ld a,#00
	ld hl,l61af
	cp (hl)
	jr z,l5f8a
	ld (hl),a
	ld c,a
	ld a,#06
.l5f89 equ $ + 2
	call l6191
.l5f8b equ $ + 1
.l5f8a
	ld a,#00
	ld hl,l61b1
	cp (hl)
	jr z,l5f99
	ld (hl),a
	ld c,a
	ld a,#0b
	call l6191
.l5f9a equ $ + 1
.l5f99
	ld a,#00
	ld hl,l61b2
	cp (hl)
	ret z
	ld (hl),a
	ld c,a
	ld a,#0d
	jp l6191
.l5fa7
	inc hl
	ld b,(hl)
	ld (ix+#06),b
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	jp l60a7
.l5fb6
	inc hl
	ld a,(hl)
	ld (ix+#06),a
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	xor a
	ld (ix+#17),a
	ld (ix+#15),a
	ld c,a
	ld a,(ix+#04)
	jp l6191
.l5fd0
	ld (ix+#0a),#00
	ld l,(ix+#0c)
	ld h,(ix+#0d)
	ld a,(hl)
	cp #80
	jr nz,l5fe5
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	ld a,(hl)
.l5fe5
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (ix+#0c),l
	ld (ix+#0d),h
	ld (ix+#08),a
	ex de,hl
	jr l6009
.l5ff6
	ld a,(l5f63)
	or a
	jp nz,l60a7
	dec (ix+#06)
	jp nz,l60a7
	ld l,(ix+#00)
	ld h,(ix+#01)
.l6009
	ld a,(hl)
	or a
	jr z,l5fa7
	cp #fe
	jr z,l5fb6
	cp #ff
	jr z,l5fd0
	ld d,#00
	and #7f
	sub #0a
	add (ix+#08)
	ld (ix+#07),a
	add a
	ld e,a
	push hl
	ld hl,l61b9
	add hl,de
	ld a,(hl)
	ld (ix+#18),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
	pop hl
	ld a,#01
	bit 7,(hl)
	jr nz,l6045
	inc hl
	ld a,(hl)
	bit 7,a
	jr z,l6045
	and #7f
	ld (ix+#06),a
	jr l6098
.l6045
	ld (ix+#06),a
	inc hl
	push hl
	ld a,(hl)
	push af
	and #0f
	cp (ix+#05)
	jr z,l6059
	ld (ix+#05),a
	ld (ix+#0a),d
.l6059
	add a
	add a
	add a
	ld e,a
	ld hl,l62ef
	add hl,de
	ld d,b
	ld e,c
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	pop af
	pop hl
	and #f0
	jr z,l6098
	cp #f0
	jp z,l614d
	cp #d0
	jp z,l6169
	cp #b0
	jp z,l6171
	cp #80
	jp nc,l6179
	cp #10
	jr nz,l6098
	xor a
	ld (ix+#1b),a
	ld (ix+#09),a
.l6098
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	ld (ix+#16),#00
	ld (ix+#17),#20
.l60a7
	ld a,(ix+#17)
	or a
	jr nz,l60bb
	ld a,(ix+#15)
	or a
	ret z
	ld (ix+#17),a
	ld a,(ix+#14)
	ld (ix+#16),a
.l60bb
	ld d,#00
	ld e,(ix+#16)
	inc (ix+#16)
	dec (ix+#17)
	ld a,(ix+#1b)
	or a
	jr z,l60e6
	ld h,a
	ld l,(ix+#1a)
	add hl,de
	ld a,(hl)
	ld b,(ix+#07)
	add b
	add a
	ld b,d
	ld c,a
	ld hl,l61b9
	add hl,bc
	ld a,(hl)
	ld (ix+#18),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
.l60e6
	ld h,(ix+#0f)
	ld l,(ix+#0e)
	add hl,de
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld l,(ix+#18)
	ld h,(ix+#19)
	add hl,bc
	ld c,l
	ld a,(ix+#02)
	call l6191
	ld c,h
	ld a,(ix+#03)
	call l6191
	ld h,(ix+#11)
	ld l,(ix+#10)
	add hl,de
	ld a,(hl)
	bit 7,a
	jr nz,l6124
	and #0f
	sub (ix+#0a)
	jr nc,l611a
	xor a
.l611a
	or (ix+#09)
	ld c,a
	ld a,(ix+#04)
	call l6191
.l6124
	ld l,(ix+#12)
	ld h,(ix+#13)
	add hl,de
	ld a,(hl)
	bit 7,a
	ret nz
	and #1f
	ld b,(ix+#0b)
	ld c,a
	or a
	ld a,b
	jr z,l6141
	ld b,a
	ld a,c
	ld (l5f7c),a
	ld a,b
	sub #40
.l6141
	ld (l6148),a
	ld a,(l5f6d)
.l6148 equ $ + 1
	bit 0,a
	ld (l5f6d),a
	ret
.l614d
	inc hl
	ld a,(hl)
	push hl
	add a
	ld b,#00
	ld c,a
	ld hl,l636f
	add hl,bc
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#1a),e
	ld (ix+#1b),d
	ld (ix+#09),#00
	pop hl
	jp l6098
.l6169
	inc hl
	ld a,(hl)
	ld (l5f68),a
	jp l6098
.l6171
	inc hl
	ld a,(hl)
	ld (ix+#0a),a
	jp l6098
.l6179
	ld (ix+#09),#10
	ld (ix+#1b),#00
	ld a,(hl)
	rrca
	rrca
	rrca
	rrca
	ld (l5f9a),a
	inc hl
	ld a,(hl)
	ld (l5f8b),a
	jp l6098
.l6191
	jp l6e9a
	ld a,c
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l61b2 equ $ + 3
.l61b1 equ $ + 2
.l61b0 equ $ + 1
.l61af
	db #ff,#ff,#ff,#ff
.l61b3
	dw l672f,l676b,l67a7
.l61b9
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw #000f
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6287 equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#01
	db #08,#00,#00,#00,#00,#00,#00,#df
.l6295 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l62a3
	db #00,#00,#02,#03,#09,#00,#00,#00
.l62b1 equ $ + 6
	db #00,#00,#00,#e7,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l62bf equ $ + 4
	db #00,#00,#00,#00,#00,#00,#04,#05
	db #0a,#00,#00,#00,#00,#00,#00,#ef
.l62cd equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
	db #53,#54,#2d,#4d,#6f,#64,#75,#6c
	db #65,#2e
.l62ef
	dw l638f,l63cf,l63ef,#0000
	dw l640f,l644f,l646f,#0000
	dw l648f,l64cf,l646f,#061a
	dw l648f,l64ef,l646f,#061a
	dw l650f,l654f,l646f,#0000
	dw l656f,l65af,l646f,#0719
	dw l650f,l65cf,l646f,#0000
	dw #788c,#8de0,#788c,#3157
	dw #5d89,l5f89,#ada4,#0000
	dw #788c,#5d89,#b8dd,#5b54
	dw #b8dd,#5d89,#b8dd,#5b54
	dw #b8dd,#5d89,#c1a3,l643a
	dw #c1e3,#c203,#c223,l64ba
	dw #c263,#c283,#b8dd,#5b54
	dw #b8dd,#b8dd,#b8dd,#5b54
	dw #b8dd,#b8dd,#5d99,#0020
.l636f
	dw l65ef,l660f,l662f,l664f
	dw l666f,l668f,l66af,l66cf
	dw l66ef,l670f,#5d89,#5d89
	dw #5d89,#5d89,#5d89,#5d89
.l638f
	db #10,#00,#20,#00,#40,#00,#60,#00
	db #90,#00,#c0,#00,#00,#01,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l63cf
	db #0f,#0e,#0d,#0b,#0c,#0b,#0a,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l63ef
	db #04,#02,#03,#01,#03,#01,#02,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l640f
	db #ff,#ff,#ff,#ff,#ff,#ff,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l643a equ $ + 3
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l644f
	db #0f,#0e,#0d,#0c,#0b,#0a,#0b,#0b
	db #0b,#0b,#0b,#0b,#0b,#0b,#0b,#0b
	db #0b,#0b,#0b,#0b,#0b,#0b,#0b,#0b
	db #0b,#0b,#0b,#0b,#0b,#0b,#0b,#0b
.l646f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l648f
	db #ff,#ff,#ff,#ff,#ff,#ff,#ff,#ff
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l64ba equ $ + 3
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l64cf
	db #0a,#0a,#0b,#0c,#0d,#0d,#0d,#0d
	db #0d,#0d,#0d,#0d,#0d,#0d,#0d,#0d
	db #0d,#0d,#0d,#0d,#0d,#0d,#0d,#0d
	db #0d,#0d,#0d,#0d,#0d,#0d,#0d,#0d
.l64ef
	db #08,#08,#09,#0a,#0b,#0b,#0b,#0b
	db #0b,#0b,#0b,#0b,#0b,#0b,#0b,#0b
	db #0b,#0b,#0b,#0b,#0b,#0b,#0b,#0b
	db #0b,#0b,#0b,#0b,#0b,#0b,#0b,#0b
.l650f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l654f
	db #0f,#0e,#0d,#0c,#0b,#09,#07,#05
	db #03,#02,#01,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l656f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#ff,#ff,#ff,#ff,#ff,#ff
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#ff,#ff,#ff,#ff,#ff,#ff
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#ff,#ff,#ff,#ff,#ff,#ff
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#ff,#ff,#ff,#ff,#ff,#ff
.l65af
	db #0f,#0e,#0e,#0d,#0d,#0e,#0e,#0f
	db #0e,#0e,#0d,#0d,#0e,#0e,#0f,#0e
	db #0e,#0d,#0d,#0e,#0e,#0f,#0e,#0e
	db #0d,#0d,#0e,#0e,#0f,#0e,#0e,#0d
.l65cf
	db #0f,#0f,#0e,#0d,#0c,#0c,#0b,#0a
	db #09,#09,#08,#07,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l65ef
	db #00,#f4,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l660f
	db #00,#00,#00,#00,#00,#00,#0c,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l662f
	db #00,#00,#fb,#fb,#f8,#f8,#00,#00
	db #fb,#fb,#f8,#f8,#00,#00,#fb,#fb
	db #f8,#f8,#00,#00,#fb,#fb,#f8,#f8
	db #00,#00,#fb,#fb,#f8,#f8,#00,#00
.l664f
	db #00,#00,#fc,#fc,#f9,#f9,#00,#00
	db #fc,#fc,#f9,#f9,#00,#00,#fc,#fc
	db #f9,#f9,#00,#00,#fc,#fc,#f9,#f9
	db #00,#00,#fc,#fc,#f9,#f9,#00,#00
.l666f
	db #00,#0c,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l668f
	db #00,#00,#fd,#fd,#f9,#f9,#00,#00
	db #fd,#fd,#f9,#f9,#00,#00,#fd,#fd
	db #f9,#f9,#00,#00,#fd,#fd,#f9,#f9
	db #00,#00,#fd,#fd,#f9,#f9,#00,#00
.l66af
	db #00,#18,#24,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l66cf
	db #0c,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l66ef
	db #00,#00,#0c,#00,#00,#0c,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l670f
	db #00,#00,#fb,#fb,#f7,#f7,#00,#00
	db #fb,#fb,#f7,#f7,#00,#00,#fb,#fb
	db #f7,#f7,#00,#00,#fb,#fb,#f7,#f7
	db #00,#00,#fb,#fb,#f7,#f7,#00,#00
.l672f
	db #00,#e3,#67,#00,#e3,#67,#00,#f6
	db #67,#00,#f6,#67,#00,#07,#68,#00
	db #f6,#67,#00,#f6,#67,#00,#07,#68
	db #00,#16,#68,#00,#16,#68,#00,#4c
	db #68,#00,#4c,#68,#00,#61,#68,#00
	db #4c,#68,#00,#4c,#68,#00,#61,#68
	db #00,#16,#68,#00,#16,#68,#00,#73
.l676b equ $ + 4
	db #68,#80,#2f,#67,#00,#c6,#68,#00
	db #c6,#68,#00,#48,#69,#00,#48,#69
	db #00,#7c,#69,#00,#48,#69,#00,#48
	db #69,#00,#7c,#69,#00,#bf,#69,#00
	db #bf,#69,#00,#33,#6a,#00,#33,#6a
	db #00,#89,#6a,#00,#33,#6a,#00,#33
	db #6a,#00,#89,#6a,#00,#bf,#69,#00
	db #bf,#69,#00,#d5,#6a,#80,#6b,#67
.l67a7
	db #00,#29,#6b,#00,#29,#6b,#00,#ad
	db #6b,#00,#ad,#6b,#00,#35,#6c,#00
	db #ad,#6b,#00,#ad,#6b,#00,#35,#6c
	db #00,#bc,#6c,#00,#bc,#6c,#00,#38
	db #6d,#00,#38,#6d,#00,#c0,#6d,#00
	db #38,#6d,#00,#38,#6d,#00,#c0,#6d
	db #00,#bc,#6c,#00,#bc,#6c,#00,#47
	db #6e,#80,#a7,#67,#3f,#10,#f2,#02
	db #3c,#08,#f2,#03,#3a,#08,#f2,#02
	db #38,#90,#35,#88,#3a,#88,#ff,#3f
	db #10,#f2,#02,#4b,#10,#f3,#02,#48
	db #10,#f3,#03,#4b,#10,#f2,#05,#ff
	db #4b,#10,#f3,#05,#3f,#10,#f2,#05
	db #41,#90,#46,#10,#f2,#02,#ff,#48
	db #04,#f2,#09,#3c,#02,#02,#46,#0a
	db #f2,#02,#48,#04,#f2,#09,#3c,#02
	db #02,#46,#08,#f2,#02,#43,#02,#f2
	db #03,#44,#04,#f2,#02,#48,#02,#f2
	db #09,#46,#0a,#f2,#02,#44,#04,#02
	db #48,#02,#f2,#09,#46,#06,#f2,#02
	db #43,#04,#f2,#03,#ff,#3f,#10,#f2
	db #02,#4b,#10,#f3,#02,#48,#10,#f3
	db #03,#4b,#0c,#f2,#05,#48,#04,#f2
	db #03,#ff,#4b,#10,#f3,#05,#3f,#10
	db #f2,#05,#41,#90,#46,#0c,#f2,#02
	db #3a,#04,#02,#ff,#54,#02,#f6,#09
	db #54,#02,#b2,#01,#54,#02,#b6,#02
	db #54,#02,#b2,#03,#54,#02,#b6,#04
	db #54,#02,#b2,#05,#54,#02,#b6,#06
	db #54,#02,#b2,#07,#54,#02,#b6,#08
	db #54,#02,#b2,#09,#54,#02,#b6,#0a
	db #54,#02,#b2,#0b,#54,#17,#b6,#0c
	db #ee,#13,#3c,#02,#b1,#03,#33,#02
	db #01,#3e,#02,#b1,#02,#35,#02,#01
	db #3f,#02,#b1,#01,#37,#02,#01,#43
	db #02,#b1,#00,#3f,#02,#01,#ff,#cb
	db #f4,#00,#cf,#04,#d2,#04,#d6,#04
	db #d7,#04,#d6,#04,#d2,#04,#cf,#04
	db #cb,#04,#cf,#04,#d2,#04,#d6,#04
	db #d7,#04,#d6,#04,#d2,#04,#cf,#04
	db #c8,#04,#cd,#04,#d0,#04,#d2,#04
	db #d4,#04,#d2,#04,#d0,#04,#cd,#04
	db #c6,#04,#ca,#04,#cd,#04,#d0,#04
	db #d2,#04,#d0,#04,#cd,#04,#ca,#04
	db #c4,#04,#c8,#04,#cb,#04,#cf,#04
	db #d0,#04,#cf,#04,#cb,#04,#c8,#04
	db #c4,#04,#c8,#04,#cb,#04,#cf,#04
	db #d0,#04,#cf,#04,#cb,#04,#c8,#04
	db #c1,#04,#c8,#04,#cd,#04,#cf,#04
	db #d0,#04,#cf,#04,#cd,#04,#c8,#04
	db #c6,#04,#cd,#04,#d2,#04,#d4,#04
	db #d6,#04,#d4,#04,#d2,#04,#cd,#04
	db #ff,#43,#03,#f4,#04,#41,#03,#04
	db #3f,#83,#41,#83,#3f,#82,#41,#82
	db #43,#83,#41,#83,#3f,#83,#41,#83
	db #3f,#82,#41,#82,#3f,#83,#3e,#83
	db #3c,#83,#3e,#83,#3c,#82,#3e,#82
	db #3f,#83,#3e,#83,#3c,#83,#3e,#83
	db #3c,#82,#3e,#82,#ff,#44,#03,#f4
	db #04,#43,#03,#04,#41,#83,#3c,#83
	db #3a,#82,#3c,#82,#44,#03,#02,#43
	db #83,#41,#83,#3c,#83,#3a,#82,#3c
	db #82,#3e,#83,#3f,#83,#41,#83,#3f
	db #83,#3e,#82,#3f,#82,#3e,#02,#04
	db #3e,#82,#bf,#04,#bf,#04,#bf,#04
	db #41,#82,#c1,#04,#41,#82,#c6,#f4
	db #06,#ba,#04,#be,#04,#c1,#04,#ff
	db #3f,#02,#15,#b3,#05,#3e,#82,#b2
	db #05,#3c,#82,#b0,#05,#37,#82,#ab
	db #05,#b5,#05,#a9,#05,#b7,#05,#ab
	db #05,#3f,#82,#b3,#05,#41,#82,#b5
	db #05,#43,#82,#b7,#05,#41,#82,#b5
	db #05,#bf,#05,#b3,#05,#c1,#05,#b5
	db #05,#3e,#82,#be,#b5,#02,#3c,#02
	db #b5,#00,#be,#b5,#02,#3a,#02,#b5
	db #00,#ba,#b5,#02,#35,#02,#b5,#00
	db #b5,#b5,#02,#33,#02,#b5,#00,#35
	db #02,#05,#bc,#f4,#04,#a4,#04,#b3
	db #04,#ac,#04,#be,#04,#a6,#04,#b8
	db #04,#ae,#04,#bf,#04,#a7,#04,#ba
	db #04,#b0,#04,#c3,#04,#ab,#04,#bc
	db #04,#a7,#04,#ff,#c3,#f1,#08,#bf
	db #01,#ba,#01,#c1,#01,#be,#01,#ba
	db #01,#3f,#83,#41,#03,#04,#3f,#82
	db #41,#82,#c3,#01,#bf,#01,#ba,#01
	db #c1,#01,#be,#01,#ba,#01,#3f,#83
	db #41,#03,#04,#3f,#82,#41,#82,#bf
	db #01,#bc,#01,#b8,#01,#be,#01,#ba
	db #01,#b7,#01,#3c,#83,#3e,#03,#04
	db #3c,#82,#3e,#82,#bf,#01,#bc,#01
	db #b8,#01,#be,#01,#ba,#01,#b7,#01
	db #3c,#83,#3e,#03,#04,#3c,#82,#3e
	db #82,#ff,#c4,#f1,#08,#c1,#01,#bc
	db #01,#c3,#01,#bf,#01,#bc,#01,#41
	db #83,#3c,#03,#04,#3a,#82,#3c,#82
	db #44,#03,#f2,#07,#43,#03,#02,#41
	db #83,#3c,#83,#3a,#82,#3c,#82,#3e
	db #83,#3f,#83,#41,#83,#3f,#83,#3e
	db #82,#3f,#82,#3e,#02,#04,#3e,#82
	db #bf,#01,#bf,#01,#bf,#01,#41,#82
	db #c1,#04,#41,#82,#c6,#f4,#06,#ba
	db #04,#be,#04,#c1,#04,#ff,#3c,#04
	db #f2,#09,#48,#02,#02,#3a,#04,#f2
	db #02,#3a,#04,#02,#3a,#82,#3c,#04
	db #f2,#09,#48,#02,#02,#3a,#04,#f2
	db #02,#3a,#04,#02,#37,#02,#f2,#03
	db #38,#04,#f2,#02,#3c,#02,#f2,#09
	db #3a,#04,#f3,#02,#3a,#03,#03,#3a
	db #83,#b0,#12,#a4,#02,#a7,#02,#ac
	db #02,#b2,#02,#a6,#02,#a9,#02,#b2
	db #02,#b3,#02,#a7,#02,#ab,#02,#b3
	db #02,#b7,#02,#ab,#02,#b3,#02,#b7
	db #02,#ff,#a7,#d1,#07,#b3,#f1,#01
	db #a7,#01,#b3,#01,#37,#02,#10,#a7
	db #f1,#01,#b3,#01,#a7,#01,#b3,#01
	db #a7,#01,#b3,#01,#37,#02,#10,#a7
	db #f1,#01,#b3,#01,#a4,#01,#b0,#01
	db #a4,#01,#b0,#01,#37,#02,#10,#a4
	db #f1,#01,#b0,#01,#a2,#01,#ae,#01
	db #a2,#01,#ae,#01,#b7,#10,#ae,#f1
	db #01,#a2,#01,#ae,#01,#a0,#01,#ac
	db #01,#a0,#01,#ac,#01,#37,#02,#10
	db #a0,#f1,#01,#ac,#01,#a0,#01,#ac
	db #01,#a0,#01,#ac,#01,#b7,#10,#ac
	db #f1,#01,#a0,#01,#ac,#01,#9d,#01
	db #a9,#01,#9d,#01,#a9,#01,#37,#02
	db #10,#9d,#f1,#01,#a9,#01,#a2,#01
	db #ae,#01,#a2,#01,#ae,#01,#37,#02
	db #10,#b7,#00,#b7,#00,#ff,#a7,#d1
	db #06,#b3,#f1,#01,#a7,#01,#b3,#01
	db #37,#02,#10,#a7,#f1,#01,#b3,#01
	db #a7,#01,#b3,#01,#a7,#01,#b3,#01
	db #b7,#10,#b3,#f1,#01,#a7,#01,#b3
	db #01,#a7,#01,#b3,#01,#a7,#01,#b3
	db #01,#37,#02,#10,#a7,#f1,#01,#b3
	db #01,#a7,#01,#b3,#01,#a7,#01,#b3
	db #01,#b7,#10,#b3,#f1,#01,#a7,#01
	db #b3,#01,#a0,#01,#ac,#01,#a0,#01
	db #ac,#01,#37,#02,#10,#a0,#f1,#01
	db #ac,#01,#a0,#01,#ac,#01,#a0,#01
	db #ac,#01,#b7,#10,#ac,#f1,#01,#a0
	db #01,#ac,#01,#a0,#01,#ac,#01,#a0
	db #01,#ac,#01,#37,#02,#10,#a0,#f1
	db #01,#ac,#01,#a0,#01,#ac,#01,#a0
	db #01,#ac,#01,#b7,#10,#a0,#f1,#01
	db #b7,#10,#ac,#f1,#01,#ff,#a9,#d1
	db #06,#b5,#f1,#01,#a9,#01,#b5,#01
	db #37,#02,#10,#a9,#f1,#01,#b5,#01
	db #a9,#01,#b5,#01,#a9,#01,#b5,#01
	db #b7,#10,#b5,#f1,#01,#a9,#01,#b5
	db #01,#a4,#01,#b0,#01,#a4,#01,#b0
	db #01,#37,#02,#10,#a4,#f1,#01,#b0
	db #01,#a4,#01,#b0,#01,#a4,#01,#b0
	db #01,#b7,#10,#b2,#f1,#01,#a7,#01
	db #b3,#01,#a6,#01,#b2,#01,#a6,#01
	db #b2,#01,#37,#02,#10,#a6,#f1,#01
	db #b2,#01,#a6,#01,#b2,#01,#a6,#01
	db #b2,#01,#b7,#10,#b2,#f1,#01,#a6
	db #01,#b2,#01,#a2,#01,#ae,#01,#a2
	db #01,#ae,#01,#37,#02,#10,#a2,#f1
	db #01,#ae,#01,#a2,#01,#ae,#01,#a2
	db #01,#ae,#01,#b7,#10,#b7,#00,#b7
	db #00,#a6,#f1,#01,#ff,#24,#02,#f1
	db #07,#a4,#01,#b0,#01,#43,#02,#10
	db #2e,#04,#a1,#05,#a2,#f1,#07,#a4
	db #01,#c3,#10,#a4,#f1,#07,#a2,#01
	db #a4,#01,#b0,#01,#bc,#01,#b0,#01
	db #bc,#01,#c3,#10,#b0,#f1,#07,#2e
	db #05,#a1,#05,#b0,#f1,#07,#43,#02
	db #10,#c3,#00,#c3,#00,#ac,#f1,#07
	db #b8,#01,#ac,#01,#b8,#01,#c3,#10
	db #b0,#f1,#07,#29,#04,#a1,#05,#a2
	db #f1,#07,#a6,#01,#c3,#10,#a7,#f1
	db #07,#a6,#01,#a7,#01,#b0,#f4,#04
	db #b0,#04,#a7,#04,#b8,#04,#c3,#10
	db #b2,#f4,#04,#ac,#04,#ba,#04,#b3
	db #04,#b3,#04,#ae,#04,#bc,#04,#c3
	db #10,#b7,#f4,#04,#b0,#04,#bf,#04
	db #ff,#a7,#d1,#06,#b3,#f1,#07,#a7
	db #01,#b3,#01,#37,#02,#10,#a7,#f1
	db #07,#b3,#01,#a7,#01,#b3,#01,#a7
	db #01,#b3,#01,#b7,#10,#b3,#f1,#07
	db #a7,#01,#b3,#01,#a7,#01,#b3,#01
	db #a7,#01,#b3,#01,#37,#02,#10,#a7
	db #f1,#07,#b3,#01,#a7,#01,#b3,#01
	db #a7,#01,#b3,#01,#b7,#10,#b3,#f1
	db #07,#a7,#01,#b3,#01,#a0,#01,#ac
	db #01,#a0,#01,#ac,#01,#37,#02,#10
	db #a0,#f1,#07,#ac,#01,#a0,#01,#ac
	db #01,#a0,#01,#ac,#01,#b7,#10,#ac
	db #f1,#07,#a0,#01,#ac,#01,#a0,#01
	db #ac,#01,#a0,#01,#ac,#01,#37,#02
	db #10,#a0,#f1,#07,#ac,#01,#a0,#01
	db #ac,#01,#a0,#01,#ac,#01,#b7,#10
	db #a0,#f1,#07,#b7,#10,#ac,#f1,#07
	db #ff,#a9,#d1,#06,#b5,#f1,#07,#a9
	db #01,#b5,#01,#37,#02,#10,#a9,#f1
	db #07,#b5,#01,#a9,#01,#b5,#01,#a9
	db #01,#b5,#01,#b7,#10,#b5,#f1,#07
	db #a9,#01,#b5,#01,#a4,#01,#b0,#01
	db #a4,#01,#b0,#01,#37,#02,#10,#a4
	db #f1,#07,#b0,#01,#a4,#01,#b0,#01
	db #a4,#01,#b0,#01,#b7,#10,#b2,#f1
	db #07,#a7,#01,#b3,#01,#a6,#01,#b2
	db #01,#a6,#01,#b2,#01,#37,#02,#10
	db #a6,#f1,#07,#b2,#01,#a6,#01,#b2
	db #01,#a6,#01,#b2,#01,#b7,#10,#b2
	db #f1,#07,#a6,#01,#b2,#01,#a2,#01
	db #ae,#01,#a2,#01,#ae,#01,#37,#02
	db #10,#a2,#f1,#07,#ae,#01,#a2,#01
	db #ae,#01,#a2,#01,#ae,#01,#b7,#10
	db #b7,#00,#b7,#00,#a6,#f1,#07,#ff
	db #54,#02,#f2,#09,#54,#02,#b6,#01
	db #54,#02,#b2,#02,#54,#02,#b6,#03
	db #54,#02,#b2,#04,#54,#02,#b6,#05
	db #54,#02,#b2,#06,#54,#02,#b6,#07
	db #54,#02,#b2,#08,#54,#02,#b6,#09
	db #54,#02,#b2,#0a,#54,#02,#b6,#0b
	db #54,#17,#b2,#0c,#6e,#02,#13,#30
	db #02,#b1,#03,#38,#02,#01,#32,#02
	db #b1,#02,#3e,#02,#01,#33,#02,#b1
	db #01,#3f,#02,#01,#37,#02,#b1,#00
	jp #ff01
.l6e9a
	cp #08
	jr z,l6ec4
	cp #09
	jr z,l6ec4
	cp #0a
	jr z,l6ec4
.l6ea6
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l6ec4
	push de
	push af
	push bc
	ld a,c
	and #10
	ld d,a
	ld a,(l6f94)
	ld e,a
	pop bc
	ld a,c
	and #0f
	sub e
	bit 7,a
	jr z,l6ed9
	xor a
.l6ed9
	or d
	ld c,a
	pop af
	pop de
	jr l6ea6
.l6edf
	ld a,(l6f95)
	or a
	jp z,l5f40
	ld a,(l6f96)
	dec a
	ld (l6f96),a
	jp nz,l5f40
	ld a,(l6f97)
	ld (l6f96),a
	ld hl,(l6f98)
	ld bc,(l6f9a)
	add hl,bc
	ld (l6f98),hl
	ld a,(hl)
	cp #ff
	jr nz,l6f0d
	xor a
	ld (l6f95),a
	jp l5f40
.l6f0d
	ld (l6f94),a
	jp l5f40
	cp #03
	ret nz
	ld b,(ix+#00)
	ld c,(ix+#02)
	ld a,(ix+#04)
	and #03
	or a
	jr z,l6f67
	push bc
	dec a
	ld hl,l6f9c
	ld de,#0021
	or a
	jr z,l6f33
	ld b,a
.l6f30
	add hl,de
	djnz l6f30
.l6f33
	xor a
	bit 7,c
	jr z,l6f3b
	add hl,de
	ld a,#ff
.l6f3b
	ld (l6f98),hl
	ld b,a
	ld (l6f9a),bc
	ld a,(l6f94)
	ld e,a
	ld d,#20
.l6f49
	add hl,bc
	ld a,(hl)
	cp e
	jr z,l6f53
	dec d
	jr nz,l6f49
	jr l6f59
.l6f53
	or a
	sbc hl,bc
	ld (l6f98),hl
.l6f59
	pop bc
	ld a,b
	ld (l6f97),a
	ld a,#01
	ld (l6f96),a
	ld (l6f95),a
	ret
.l6f67
	ld a,(l6f95)
	or a
	ret nz
	ld a,b
	or a
	jr z,l6f83
	ld a,(l6f94)
	add c
	bit 7,a
	jr z,l6f79
	xor a
.l6f79
	cp #10
	jr nz,l6f7f
	ld a,#0f
.l6f7f
	ld (l6f94),a
	ret
.l6f83
	ld a,#0f
	and c
	ld c,a
	ld a,#0f
	sub c
	jr l6f7f
	xor a
	ld (l6f95),a
	ld (l6f94),a
	ret
.l6f9a equ $ + 6
.l6f98 equ $ + 4
.l6f97 equ $ + 3
.l6f96 equ $ + 2
.l6f95 equ $ + 1
.l6f94
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6f9c
	db #ff,#0f,#0e,#0d,#0c,#0b,#0a,#09
	db #09,#08,#08,#07,#07,#06,#06,#05
	db #05,#04,#04,#04,#03,#03,#03,#02
	db #02,#02,#01,#01,#01,#00,#00,#00
	db #00,#ff,#0f,#0e,#0d,#0c,#0b,#0a
	db #09,#09,#08,#08,#07,#07,#06,#06
	db #05,#05,#04,#04,#04,#03,#03,#03
	db #02,#02,#02,#02,#02,#02,#02,#02
	db #02,#02,#ff
;
.game_name
	db "Super Tetris Game",0
.game_year
	db "1997",0
.game_publisher
	db "Frequency",0
.music_author
	db "",0
.music_comment
	db "ST-Module.",0

	read "music_end_v1_0.asm"
